Imports OpenAccess

<Persistent()> Public Class WorkShop

#Region "Persistent Variables"
    Private colName As String
    Private refAdultMembers As IList(Of Parent) = New List(Of Parent)
    Private refKidMembers As IList(Of Child) = New List(Of Child)
#End Region

#Region "Public Interface"
    Public Property Name() As String
        Get
            Return colName
        End Get
        Set(ByVal newValue As String)
            colName = newValue
        End Set
    End Property

    Public ReadOnly Property AdultMembers() As IList(Of Parent)
        Get
            Return refAdultMembers
        End Get
    End Property

    Public ReadOnly Property KidMembers() As IList(Of Child)
        Get
            Return refKidMembers
        End Get
    End Property
#End Region

End Class
